Grafo = zeros(450,450);
max = length(Pasta1);
for i=1:max 
    Grafo(Pasta1(i,1), Pasta1(i,2)) = 1;
    Grafo(Pasta1(i,2), Pasta1(i,1)) = 1;
end